inherited FPesquisaExtrato: TFPesquisaExtrato
  Left = 290
  Top = 142
  Caption = 'Pesquisa Extrato Conta Corrente'
  ClientHeight = 231
  OldCreateOrder = True
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Tag = 5
      Enabled = False
    end
  end
  inherited Panel1: TPanel
    Height = 190
    object Label1: TLabel [0]
      Left = 6
      Top = 1
      Width = 60
      Height = 13
      Caption = 'Grupo Conta'
    end
    object Label2: TLabel [1]
      Left = 77
      Top = 1
      Width = 28
      Height = 13
      Caption = 'Conta'
    end
    object Label10: TLabel [2]
      Left = 4
      Top = 104
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    inherited DBGrid1: TDBGrid
      Left = 9
      Top = 134
      Width = 395
      Height = 160
      Align = alNone
      TabOrder = 4
      Visible = False
    end
    inherited Panel3: TPanel
      Top = 169
      TabOrder = 5
    end
    object EGrupo: TEdit
      Left = 6
      Top = 14
      Width = 60
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object DBLCBConta: TDBLookupComboBox
      Left = 77
      Top = 14
      Width = 327
      Height = 19
      Ctl3D = False
      KeyField = 'CONT_CORR_CODIGO'
      ListField = 'CONT_CORR_DESCRICAO'
      ListSource = DSConta
      ParentCtl3D = False
      TabOrder = 1
      OnExit = DBLCBContaExit
      OnKeyDown = DBLCBContaKeyDown
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 62
      Top = 104
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 2
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 129
      Width = 409
      Height = 40
      Align = alBottom
      Columns = 1
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 3
    end
    object CbSublinhar: TCheckBox
      Left = 285
      Top = 59
      Width = 121
      Height = 17
      Caption = 'Sublinhar Registros'
      TabOrder = 6
    end
    object GBLancamento: TGroupBox
      Left = 8
      Top = 40
      Width = 267
      Height = 52
      Caption = '  Data Lan'#231'amento  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 7
      object Label6: TLabel
        Left = 129
        Top = 20
        Width = 6
        Height = 13
        Caption = #224
      end
      object Label3: TLabel
        Left = 8
        Top = 20
        Width = 14
        Height = 13
        Caption = 'De'
      end
      object DEDataIni: TDateEdit
        Left = 30
        Top = 20
        Width = 88
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
      end
      object DEDataFim: TDateEdit
        Left = 145
        Top = 20
        Width = 90
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select Cont_Corr_Codigo as CodConta,Cont_Corr_Descricao as Conta' +
        ',Cont_Corr_Saldo as Saldo,Lanc_Codigo as Lancamento,Lanc_Data as' +
        ' Data,Lanc_Documento as Documento,Lanc_Cheque as Cheque,Lanc_His' +
        'torico1 as Historico1,'
      
        'Lanc_Historico2 as Historico2,Lanc_Valor as Valor,Lanc_JurosMult' +
        'a as JurosMulta,Lanc_CREDITO,PlanoContas.Natureza as Natureza'
      
        'from PlanoContas inner join (lancamento inner join ContaCorrente' +
        ' on Cont_Corr_Codigo = Lanc_Conta) on lanc_Plano = PlanoContas.C' +
        'odigo'
      
        'Group by Cont_Corr_Codigo,Cont_Corr_Descricao,Lanc_Data,Lanc_Che' +
        'que,Lanc_Codigo,Lanc_Documento,Lanc_Historico1,Lanc_Historico2,L' +
        'anc_Valor,lanc_JurosMulta,Cont_Corr_Saldo,PlanoContas.Natureza')
    Left = 160
    Top = 89
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 264
    Top = 280
  end
end
